home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / chap08 / howto03 / delphi10 / creatabs / tabcreat.dfm / tabcreat.txt
Encoding:
Text File  |  1996-04-13  |  9.3 KB  |  322 lines
  1. object CreateTableForm: TCreateTableForm
  2.   Left = 145
  3.   Top = 102
  4.   Width = 594
  5.   Height = 470
  6.   ActiveControl = TableNameEdit
  7.   Caption = 'Create New Interbase Table'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   TextHeight = 13
  17.   object TableNameLabel: TLabel
  18.     Left = 8
  19.     Top = 16
  20.     Width = 58
  21.     Height = 13
  22.     Caption = '&Table Name'
  23.     FocusControl = TableNameEdit
  24.   end
  25.   object FieldNameLabel: TLabel
  26.     Left = 155
  27.     Top = 216
  28.     Width = 53
  29.     Height = 13
  30.     Caption = 'Field &Name'
  31.     FocusControl = FieldNameDBEdit
  32.   end
  33.   object TypeLabel: TLabel
  34.     Left = 184
  35.     Top = 240
  36.     Width = 24
  37.     Height = 13
  38.     Caption = 'T&ype'
  39.     FocusControl = TypeDBComboBox
  40.   end
  41.   object SizeLabel: TLabel
  42.     Left = 392
  43.     Top = 240
  44.     Width = 20
  45.     Height = 13
  46.     Caption = 'Si&ze'
  47.     FocusControl = SizeDBEdit
  48.   end
  49.   object DecLabel: TLabel
  50.     Left = 456
  51.     Top = 240
  52.     Width = 20
  53.     Height = 13
  54.     Caption = '&Dec'
  55.     FocusControl = DecDBEdit
  56.   end
  57.   object OrderLabel: TLabel
  58.     Left = 56
  59.     Top = 216
  60.     Width = 26
  61.     Height = 13
  62.     Caption = '&Order'
  63.     FocusControl = OrderDBEdit
  64.   end
  65.   object StructureDBGrid: TDBGrid
  66.     Left = 8
  67.     Top = 40
  68.     Width = 569
  69.     Height = 113
  70.     DataSource = StructureDataSource
  71.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  72.     ReadOnly = True
  73.     TabOrder = 1
  74.     TitleFont.Color = clBlack
  75.     TitleFont.Height = -11
  76.     TitleFont.Name = 'MS Sans Serif'
  77.     TitleFont.Style = []
  78.   end
  79.   object FieldNameDBEdit: TDBEdit
  80.     Left = 216
  81.     Top = 208
  82.     Width = 153
  83.     Height = 21
  84.     DataSource = StructureDataSource
  85.     MaxLength = 0
  86.     TabOrder = 5
  87.     OnKeyPress = FieldNameDBEditKeyPress
  88.   end
  89.   object TypeDBComboBox: TDBComboBox
  90.     Left = 216
  91.     Top = 232
  92.     Width = 153
  93.     Height = 21
  94.     Style = csDropDownList
  95.     DataSource = StructureDataSource
  96.     DropDownCount = 10
  97.     ItemHeight = 13
  98.     TabOrder = 6
  99.     OnChange = TypeDBComboBoxChange
  100.   end
  101.   object KeyDBCheckBox: TDBCheckBox
  102.     Left = 528
  103.     Top = 236
  104.     Width = 41
  105.     Height = 17
  106.     Caption = '&Key'
  107.     DataSource = StructureDataSource
  108.     TabOrder = 9
  109.     ValueChecked = 'True'
  110.     ValueUnchecked = 'False'
  111.   end
  112.   object SizeDBEdit: TDBEdit
  113.     Left = 416
  114.     Top = 232
  115.     Width = 33
  116.     Height = 21
  117.     DataSource = StructureDataSource
  118.     MaxLength = 0
  119.     TabOrder = 7
  120.   end
  121.   object DecDBEdit: TDBEdit
  122.     Left = 480
  123.     Top = 232
  124.     Width = 33
  125.     Height = 21
  126.     DataSource = StructureDataSource
  127.     MaxLength = 0
  128.     TabOrder = 8
  129.   end
  130.   object TableNameEdit: TEdit
  131.     Left = 80
  132.     Top = 8
  133.     Width = 137
  134.     Height = 21
  135.     TabOrder = 0
  136.     OnExit = TableNameEditExit
  137.     OnKeyPress = TableNameEditKeyPress
  138.   end
  139.   object SqlStatmentMemo: TMemo
  140.     Left = 8
  141.     Top = 264
  142.     Width = 569
  143.     Height = 129
  144.     TabStop = False
  145.     Color = clBtnFace
  146.     Enabled = False
  147.     Font.Color = clWindowText
  148.     Font.Height = -11
  149.     Font.Name = 'MS Sans Serif'
  150.     Font.Style = [fsBold]
  151.     Lines.Strings = (
  152.       'CREATE TABLE table ('
  153.       '  <col_def> [, <col_def> | <tconstraint> ...]'
  154.       ');'
  155.       #9)
  156.     ParentFont = False
  157.     ReadOnly = True
  158.     ScrollBars = ssVertical
  159.     TabOrder = 10
  160.   end
  161.   object OkBitBtn: TBitBtn
  162.     Left = 176
  163.     Top = 408
  164.     Width = 75
  165.     Height = 25
  166.     Caption = 'OK'
  167.     ModalResult = 1
  168.     TabOrder = 11
  169.     OnClick = OkBitBtnClick
  170.     Glyph.Data = {
  171.       BE060000424DBE06000000000000360400002800000024000000120000000100
  172.       0800000000008802000000000000000000000000000000000000000000000000
  173.       80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
  174.       A600000000000000000000000000000000000000000000000000000000000000
  175.       0000000000000000000000000000000000000000000000000000000000000000
  176.       0000000000000000000000000000000000000000000000000000000000000000
  177.       0000000000000000000000000000000000000000000000000000000000000000
  178.       0000000000000000000000000000000000000000000000000000000000000000
  179.       0000000000000000000000000000000000000000000000000000000000000000
  180.       0000000000000000000000000000000000000000000000000000000000000000
  181.       0000000000000000000000000000000000000000000000000000000000000000
  182.       0000000000000000000000000000000000000000000000000000000000000000
  183.       0000000000000000000000000000000000000000000000000000000000000000
  184.       0000000000000000000000000000000000000000000000000000000000000000
  185.       0000000000000000000000000000000000000000000000000000000000000000
  186.       0000000000000000000000000000000000000000000000000000000000000000
  187.       0000000000000000000000000000000000000000000000000000000000000000
  188.       0000000000000000000000000000000000000000000000000000000000000000
  189.       0000000000000000000000000000000000000000000000000000000000000000
  190.       0000000000000000000000000000000000000000000000000000000000000000
  191.       0000000000000000000000000000000000000000000000000000000000000000
  192.       0000000000000000000000000000000000000000000000000000000000000000
  193.       0000000000000000000000000000000000000000000000000000000000000000
  194.       0000000000000000000000000000000000000000000000000000000000000000
  195.       0000000000000000000000000000000000000000000000000000000000000000
  196.       0000000000000000000000000000000000000000000000000000000000000000
  197.       0000000000000000000000000000000000000000000000000000000000000000
  198.       0000000000000000000000000000000000000000000000000000000000000000
  199.       0000000000000000000000000000000000000000000000000000000000000000
  200.       0000000000000000000000000000000000000000000000000000000000000000
  201.       0000000000000000000000000000000000000000000000000000000000000000
  202.       0000000000000000000000000000000000000000000000000000000000000000
  203.       000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  204.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
  205.       0303030303030303030303030303030303030303030303030303030303030303
  206.       03030303030303030303030303030303030303030303FF030303030303030303
  207.       03030303030303040403030303030303030303030303030303F8F8FF03030303
  208.       03030303030303030303040202040303030303030303030303030303F80303F8
  209.       FF030303030303030303030303040202020204030303030303030303030303F8
  210.       03030303F8FF0303030303030303030304020202020202040303030303030303
  211.       0303F8030303030303F8FF030303030303030304020202FA0202020204030303
  212.       0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
  213.       040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
  214.       03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
  215.       FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
  216.       0303030303030303030303FA0202020403030303030303030303030303F8FF03
  217.       03F8FF03030303030303030303030303FA020202040303030303030303030303
  218.       0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
  219.       03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
  220.       030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
  221.       0202040303030303030303030303030303F8FF03F8FF03030303030303030303
  222.       03030303FA0202030303030303030303030303030303F8FFF803030303030303
  223.       030303030303030303FA0303030303030303030303030303030303F803030303
  224.       0303030303030303030303030303030303030303030303030303030303030303
  225.       0303}
  226.     NumGlyphs = 2
  227.   end
  228.   object CancelBitBtn: TBitBtn
  229.     Left = 328
  230.     Top = 408
  231.     Width = 75
  232.     Height = 25
  233.     TabOrder = 12
  234.     OnClick = CancelBitBtnClick
  235.     Kind = bkClose
  236.   end
  237.   object StructureDBNavigator: TDBNavigator
  238.     Left = 8
  239.     Top = 152
  240.     Width = 553
  241.     Height = 18
  242.     DataSource = StructureDataSource
  243.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  244.     TabOrder = 3
  245.   end
  246.   object OrderDBEdit: TDBEdit
  247.     Left = 96
  248.     Top = 208
  249.     Width = 33
  250.     Height = 21
  251.     DataSource = StructureDataSource
  252.     MaxLength = 0
  253.     TabOrder = 4
  254.   end
  255.   object AddFieldButton: TButton
  256.     Left = 8
  257.     Top = 176
  258.     Width = 121
  259.     Height = 25
  260.     Caption = '&Add Field'
  261.     Default = True
  262.     TabOrder = 2
  263.     OnClick = AddFieldButtonClick
  264.   end
  265.   object DeleteFieldButton: TButton
  266.     Left = 155
  267.     Top = 176
  268.     Width = 121
  269.     Height = 25
  270.     Caption = '&Delete Field'
  271.     TabOrder = 13
  272.     OnClick = DeleteFieldButtonClick
  273.   end
  274.   object CancelFieldButton: TButton
  275.     Left = 301
  276.     Top = 176
  277.     Width = 129
  278.     Height = 25
  279.     Caption = '&Cancel Field'
  280.     TabOrder = 14
  281.     OnClick = CancelFieldButtonClick
  282.   end
  283.   object SaveFieldButton: TButton
  284.     Left = 448
  285.     Top = 176
  286.     Width = 129
  287.     Height = 25
  288.     Caption = '&Save Field'
  289.     TabOrder = 15
  290.     OnClick = SaveFieldButtonClick
  291.   end
  292.   object TargetDatabase: TDatabase
  293.     AliasName = 'CSHOWTO'
  294.     Connected = True
  295.     DatabaseName = 'SqlDatabase'
  296.     Params.Strings = (
  297.       'USER NAME=STENDON')
  298.     Left = 384
  299.     Top = 48
  300.   end
  301.   object StructureDataSource: TDataSource
  302.     DataSet = StructureTable
  303.     OnDataChange = StructureDataSourceDataChange
  304.     Left = 384
  305.     Top = 80
  306.   end
  307.   object StructureTable: TTable
  308.     AfterInsert = StructureTableAfterInsert
  309.     BeforePost = StructureTableBeforePost
  310.     AfterPost = StructureTableAfterPost
  311.     AfterDelete = StructureTableAfterDelete
  312.     OnNewRecord = StructureTableNewRecord
  313.     Left = 384
  314.     Top = 112
  315.   end
  316.   object CreateQuery: TQuery
  317.     DatabaseName = 'SqlDatabase'
  318.     Left = 384
  319.     Top = 144
  320.   end
  321. end
  322.